home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / music4c.sit / Music4C Folder / Sources Folder / Pstring.c < prev    next >
Text File  |  1990-06-08  |  567b  |  32 lines
  1. /*
  2. * ⌐ Graeme Gerrard 1990
  3. * Faculty of Music, University of Melbourne
  4. * Parkville Victoria 3052 Australia.
  5. *
  6. * ARPANET: grae@murdu.ucs.unimelb.edu.au
  7. * telephone: (613) 344 4127, Fax: (613) 344 5346
  8. */
  9.  
  10. #include "Music4C_Prototype.h"
  11.  
  12.  
  13. void    PstringCopy(to, from)
  14.     char    *to, *from;
  15. {
  16.     char    *end = from + *from + 1;
  17.     for ( *to++ = *from++; from < end; )
  18.         *to++ = *from++;
  19. }
  20. void    PstringCat(to, from)
  21.     char    *to, *from;
  22. {
  23.     register int i, length;
  24.     char    *p;
  25.     
  26.     length = *from;
  27.     p = to + *to + 1;
  28.     from++;
  29.     for ( i = 0; i < length; i++)    *p++ = *from++;
  30.     *to += length;
  31. }
  32.